<%
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
	dim n,f
	if totalnumber mod maxperpage=0 then
    	n= totalnumber \ maxperpage
  	else
    	n= totalnumber \ maxperpage+1
  	end if
	response.write"<table align='center' width=""95%"" height=""40""><tr><td>"
	if ShowTotal=true then
     response.write "共<b><font color='FA8100'>"&totalnumber&"</font></b>"&strUnit&" <b><font color='FA8100'>"&MaxPerPage&"</font></b>"&strUnit&"记录/页  "
	end if
    if currentPage<2 then      
     response.write "首页 上一页&nbsp;"
    else
     response.write "<a href=" & sfilename & "page=1>首页</a>&nbsp;"
     response.write "<a href=" & sfilename & "page=" & (CurrentPage-1) & ">上一页</a>&nbsp;"
    end if
    if n-currentPage<1 then
     response.write "下一页 尾页"
    else
     response.write "<a href=" & sfilename & "page=" & (CurrentPage+1) & ">下一页</a> "
     response.write "<a href=" & sfilename & "page="&n&">尾页</a>"
     end if
	response.write "&nbsp;页次：<strong><font color=FA8100>"&CurrentPage&"</font>/"&n&"</strong>页"
	if ShowAllPages=True then
    response.write "&nbsp;转到：第"%>&nbsp;<select name="menu1" id="menu1" onChange="MM_jumpMenu('self',this,0)">
<%
    pg=request("page")
    pg=int(pg)
    for f=1 to n
    if f=pg then%>
     <option value="<%=sfilename%>page=<%=f%>" selected><%=f%></option>
    <%else%>
     <option value="<%=sfilename%>page=<%=f%>"><%=f%></option>
    <%end if:next%>
    </select>&nbsp;页
	<%end if%>
<script type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</td></tr></table>
<%end sub%>